home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / Zero / Zero.a next >
Encoding:
Text File  |  1991-11-05  |  1002 b   |  38 lines  |  [TEXT/MPS ]
  1. ;Asm -l Zero.a
  2.  
  3.  
  4.  
  5.     proc
  6.     move.l    (sp)+,d1    ;get size
  7.     move.w    d1,d2        ;copy it
  8.     clr.l    d0            ;the fill value
  9.     movea.l    (sp)+,a0    ;get buffer addr
  10.     lsr.l    #2,d1        ;# of longwords
  11.     beq.s    @2            ;none?
  12.     subq.l    #1,d1        ;set up loop
  13. @1    move.l    d0,(a0)+    ;fill longwords
  14.     dbra    d1,@1
  15. @2    and.w    #3,d2        ;# of extra bytes
  16.     beq.s    @4            ;none?
  17.     subq.w    #1,d2        ;set up loop
  18. @3    move.b    d0,(a0)+    ;fill bytes
  19.     dbra    d2,@3
  20. @4
  21.     end
  22.     
  23. $221F,           {    move.l    (sp)+,d1    ;get size}
  24. $3401,           {    move.w    d1,d2        ;copy it}
  25. $7000,           {    clr.l    d0            ;the fill value}
  26. $205F,           {    movea.l    (sp)+,a0    ;get buffer addr}
  27. $E489,           {    lsr.l    #2,d1        ;# of longwords}
  28. $6708,           {    beq.s    @2            ;none?}
  29. $5381,           {    subq.l    #1,d1        ;set up loop}
  30. $20C0,           {@1    move.l    d0,(a0)+    ;fill longwords}
  31. $51C9, $FFFC      {    dbra    d1,@1}
  32. $0242, $0003      {@2    and.w    #3,d2        ;# of extra bytes}
  33. $6708,           {    beq.s    @4            ;none?}
  34. $5342,           {    subq.w    #1,d2        ;set up loop}
  35. $10C0,           {@3    move.b    d0,(a0)+    ;fill bytes}
  36. $51CA, $FFFC;      {    dbra    d2,@3}
  37.                  {@4}
  38.